unit Otras_Tablas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg, Menus;

type
  TF_Otras_Tablas = class(TForm)
    B_Volver: TButton;
    Image1: TImage;
    MainMenu1: TMainMenu;
    M_MenuEmp: TMenuItem;
    M_Emp: TMenuItem;
    M_EstEmp: TMenuItem;
    M_HorEmp: TMenuItem;
    M_MenuCli: TMenuItem;
    M_EstCli: TMenuItem;
    M_MenuLoc: TMenuItem;
    M_MenuCancha: TMenuItem;
    M_Cancha: TMenuItem;
    M_Mant: TMenuItem;
    M_MenuTur: TMenuItem;
    M_EstTurn: TMenuItem;
    M_HorTurn: TMenuItem;
    M_Costos: TMenuItem;
    M_MenuTar: TMenuItem;
    M_MenuUsu: TMenuItem;
    procedure B_VolverClick(Sender: TObject);
    procedure B_EmpClick(Sender: TObject);
    procedure B_MantClick(Sender: TObject);
    procedure B_TareasClick(Sender: TObject);
    procedure B_LocalidadesClick(Sender: TObject);
    procedure M_EmpClick(Sender: TObject);
    procedure M_EstEmpClick(Sender: TObject);
    procedure M_HorEmpClick(Sender: TObject);
    procedure M_CliClick(Sender: TObject);
    procedure M_MenuLocClick(Sender: TObject);
    procedure M_MantClick(Sender: TObject);
    procedure M_MenuUsuClick(Sender: TObject);
    procedure M_CanchaClick(Sender: TObject);
    procedure M_MenuTarClick(Sender: TObject);
    procedure M_EstTurnClick(Sender: TObject);
    procedure M_HorTurnClick(Sender: TObject);
    procedure M_CostosClick(Sender: TObject);
    procedure M_EstCliClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Otras_Tablas: TF_Otras_Tablas;

implementation

uses Empleados, Mantenimientos, Tareas, Localidades, Estado_Empleados,
  Horarios_Empleados, Clientes, Usuarios, Canchas, Estado_Turnos,
  Alta_Horario_Turnos, Horario_Turnos, Costos, Estado_Clientes;

{$R *.dfm}

procedure TF_Otras_Tablas.M_CanchaClick(Sender: TObject);
begin
    F_Canchas.Bandera_Seleccionar := False;
    F_Canchas.ShowModal;
end;

procedure TF_Otras_Tablas.M_CliClick(Sender: TObject);
begin
    F_clientes.ShowModal;
end;

procedure TF_Otras_Tablas.M_CostosClick(Sender: TObject);
begin
  F_Costos.Bandera_Seleccionar := False;
  F_Costos.ShowModal;
end;

procedure TF_Otras_Tablas.M_EmpClick(Sender: TObject);
begin
    F_Empleados.Bandera_Seleccionar := False;
    F_Empleados.ShowModal;
end;

procedure TF_Otras_Tablas.M_EstCliClick(Sender: TObject);
begin
   F_EstadoClientes.Bandera_Seleccionar := False;
   F_EstadoClientes.ShowModal;
end;

procedure TF_Otras_Tablas.M_EstEmpClick(Sender: TObject);
begin
    F_EstadoEmpleados.Bandera_Seleccionar := False;
    F_EstadoEmpleados.ShowModal;
end;

procedure TF_Otras_Tablas.M_EstTurnClick(Sender: TObject);
begin
    F_EstadoTurnos.Bandera_Seleccionar := False;
    F_EstadoTurnos.ShowModal;
end;

procedure TF_Otras_Tablas.M_HorEmpClick(Sender: TObject);
begin
    F_HorariosEmp.Bandera_Seleccionar := False;
    F_HorariosEmp.ShowModal;
end;

procedure TF_Otras_Tablas.M_HorTurnClick(Sender: TObject);
begin
    F_HorarioTurnos.Bandera_Seleccionar := False;
    F_HorarioTurnos.ShowModal;
end;

procedure TF_Otras_Tablas.M_MantClick(Sender: TObject);
begin
    F_Mantenimientos.ShowModal;
end;

procedure TF_Otras_Tablas.M_MenuLocClick(Sender: TObject);
begin
    F_localidades.Bandera_Seleccionar := False;
    F_Localidades.ShowModal;
end;

procedure TF_Otras_Tablas.M_MenuTarClick(Sender: TObject);
begin
    F_Tareas.Bandera_Seleccionar := False;
    F_Tareas.ShowModal;
end;

procedure TF_Otras_Tablas.M_MenuUsuClick(Sender: TObject);
begin
  F_Usuarios.ShowModal;
end;

procedure TF_Otras_Tablas.B_EmpClick(Sender: TObject);
begin
  F_Empleados.ShowModal;
end;

procedure TF_Otras_Tablas.B_LocalidadesClick(Sender: TObject);
begin
  F_Localidades.Bandera_Seleccionar := False;
  F_Localidades.ShowModal;
end;

procedure TF_Otras_Tablas.B_MantClick(Sender: TObject);
begin
    F_Mantenimientos.ShowModal;
end;

procedure TF_Otras_Tablas.B_TareasClick(Sender: TObject);
begin
  F_Tareas.ShowModal;
end;

procedure TF_Otras_Tablas.B_VolverClick(Sender: TObject);
begin
  F_Otras_Tablas.Close;
end;

end.
